home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 010a / apop.zip / WINSHADE.PRG < prev   
Text File  |  1993-04-24  |  1KB  |  26 lines
  1. ************************************************************************
  2. *  PROGRAM: WINSHADE.PRG
  3. *  WRITER: KRAIG W. KRIST/T BEAR COMPUTER SERVICES
  4. *  DATE: APRIL 1993
  5. *  DESCRIPTION: MODIFIED ORIGINAL BY EDWARD TILEY.
  6. ************************************************************************
  7. *             ---- MODIFICATION LOG ----
  8. *  WHEN:
  9. *   WHY:
  10. ************************************************************************
  11. *
  12. * CALLED BY: APOP
  13. *   PASSED FROM APOP: TOP, LEFT, BOTTOM, RIGHT
  14. *   RETURNS TO APOP: NOTHING
  15. ************************************************************************
  16. ********************************************************************
  17. * DRAW A BOX SHADOW TO THE RIGHT AND BOTTOM OF THE BOX.
  18. ********************************************************************
  19. FUNCTION WINSHADE(nTOP,nLEFT,nBOTTOM,nRIGHT)
  20.   RESTSCREEN(nTOP+1,nLEFT+1,nBOTTOM+1,nRIGHT+1,;
  21.    TRANSFORM(SAVESCREEN(nTOP+1,nLEFT+1,nBOTTOM+1,nRIGHT+1),;
  22.    REPLICATE('X'+CHR(7),;
  23.    LEN(SAVESCREEN(nTOP+1,nLEFT+1,nBOTTOM+1,nRIGHT+1)))))
  24.   @ nTOP,nLEFT CLEAR TO nBOTTOM,nRIGHT
  25. RETURN(NIL)
  26.